home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #23 (1994-02-10)(Diesel)(DE)[WB].zip / Purity #23 (1994-02-10)(Diesel)(DE)[WB].adf / DesignerDemo / buttondemo / ButtonDemo.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-20  |  1KB  |  51 lines
  1. { Simple Designer Demo }
  2.  
  3. Program ButtonDemo;
  4.  
  5. Uses exec,intuition,gadtools,graphics,amiga,diskfont,
  6.      workbench,utility,buttondemowin;
  7. var
  8.   done  : boolean;
  9.   class : long;
  10.   pimsg : pintuimessage;
  11.   dummy : long;
  12.   pgsel : pgadget;
  13. begin
  14.   if openlibs then
  15.     begin
  16.       if openwindowdisplaywindow then
  17.         begin
  18.           done:=false;
  19.           repeat
  20.             dummy:=wait(bitmask(displaywindow^.userport^.mp_sigbit));
  21.             pimsg:=gt_getimsg(displaywindow^.userport);
  22.             while(pimsg<>nil) do
  23.               begin
  24.                 class:=pimsg^.class;
  25.                 pgsel:=pgadget(pimsg^.iaddress);  { do not reference unless gadgetup or gadgetdown }
  26.                 gt_replyimsg(pimsg);
  27.                 case class of
  28.                   idcmp_closewindow : 
  29.                     done:=true;
  30.                   idcmp_gadgetup :
  31.                     begin
  32.                       case pgsel^.gadgetid of
  33.                         okbutton :
  34.                           done:=true;
  35.                         cancelbutton :
  36.                           done:=true;
  37.                        end;
  38.                     end;
  39.                  end;
  40.                 pimsg:=gt_getimsg(displaywindow^.userport);
  41.               end;
  42.           until done;
  43.           closewindowdisplaywindow;
  44.         end
  45.        else
  46.         writeln('Could not open window.');
  47.       closelibs;
  48.     end
  49.    else
  50.     writeln('Could not open libraries.');
  51. end.